unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ToolWin, ComCtrls, ImgList, ExtCtrls;

type
  TfrmMedicoPro = class(TForm)
    mainMenu: TMainMenu;
    Bevel1: TBevel;
    imglMenu: TImageList;
    ToolBar1: TToolBar;
    Cadastros1: TMenuItem;
    Pacientes1: TMenuItem;
    Mdicos1: TMenuItem;
    N1: TMenuItem;
    Procedimentos1: TMenuItem;
    Convnios1: TMenuItem;
    Especialidades1: TMenuItem;
    N2: TMenuItem;
    Arquivos1: TMenuItem;
    Sobre1: TMenuItem;
    Sair1: TMenuItem;
    Reservas1: TMenuItem;
    Atendimentos1: TMenuItem;
    Agendas1: TMenuItem;
    procedure Convnios1Click(Sender: TObject);
    procedure Especialidades1Click(Sender: TObject);
    procedure Procedimentos1Click(Sender: TObject);
    procedure Mdicos1Click(Sender: TObject);
    procedure Pacientes1Click(Sender: TObject);
    procedure Sobre1Click(Sender: TObject);
    procedure Sair1Click(Sender: TObject);
    procedure Agendas1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMedicoPro: TfrmMedicoPro;

implementation

uses uCadConvenios, uLib, uCadEspecialidades, uCadProcedimentos, uCadMedicos,
  uCadPaciente, uSobre, uCadHorarios;

{$R *.dfm}





procedure TfrmMedicoPro.Agendas1Click(Sender: TObject);
begin
  AbreForm(TfrmCadHorarios, frmCadHorarios);
end;

procedure TfrmMedicoPro.Convnios1Click(Sender: TObject);
begin
  AbreForm(TfrmCadConvenios, frmCadConvenios);
end;

procedure TfrmMedicoPro.Especialidades1Click(Sender: TObject);
begin
  AbreForm(TfrmCadEspecialidades, frmCadEspecialidades);
end;

procedure TfrmMedicoPro.Mdicos1Click(Sender: TObject);
begin
  AbreForm(TfrmCadMedicos, frmCadMedicos);
end;

procedure TfrmMedicoPro.Pacientes1Click(Sender: TObject);
begin
  AbreForm(TfrmCadPacientes, frmCadPacientes);
end;

procedure TfrmMedicoPro.Procedimentos1Click(Sender: TObject);
begin
  AbreForm(TfrmCadProcedimentos, frmCadProcedimentos);
end;

procedure TfrmMedicoPro.Sair1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmMedicoPro.Sobre1Click(Sender: TObject);
begin
  AbreForm(TfrmSobre, frmSobre);
end;

end.
